Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/error_hn/module/modules.frm

Visual Basic Form | 1995-02-13 | 25.0 KB | 734 lines

VERSION 2.00
Begin Form frmWPS
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   Caption         =   "'The MCR Company' Windows Process Status"
   ClientHeight    =   5340
   ClientLeft      =   1110
   ClientTop       =   2385
   ClientWidth     =   9150
   Height          =   5970
   Icon            =   MODULES.FRX:0000
   Left            =   1080
   ScaleHeight     =   5340
   ScaleWidth      =   9150
   Top             =   1785
   Width           =   9210
   Begin VideoSoftElastic VSElastic4
      Align           =   5  'Fill Container
      AutoSizeChildren=   7  'Proportional
      BackColor       =   &H00C0C0C0&
      ChildSpacing    =   2
      Height          =   2640
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   4
      Top             =   2700
      Width           =   9150
      Begin VideoSoftElastic VSElastic5
         Align           =   2  'Align Bottom
         BackColor       =   &H00C0C0C0&
         BorderWidth     =   0
         ChildSpacing    =   2
         Height          =   255
         IntBkg          =   &H00C0C0C0&
         Left            =   0
         TabIndex        =   8
         Top             =   2385
         Width           =   9150
      End
      Begin MListBox MList2
         AddItemHeight   =   0
         Alignment       =   0  'None
         AllowFocusRect  =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'Normal
         CheckColor      =   &H00000000&
         CheckStyle      =   0  'Cross Style
         DrawRegions     =   7
         EnableVirtualMsgs=   0   'False
         ExtendedSelect  =   0   'False
         FallColor       =   &H00808080&
         FindDirection   =   0  'Forward
         FindResult      =   0  'Update ListIndex
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         GridColor       =   &H00808080&
         GridStyle       =   0  'Solid
         Height          =   2340
         HiliteBackColor =   &H00000000&
         HiliteForeColor =   &H00000000&
         HorizontalGrids =   0   'False
         ImageRegion     =   0
         ImageType       =   0  'None
         ItemHeight      =   210
         ItemWidth       =   1560
         Left            =   0
         ListBoxStyle    =   0  'Fixed
         MaskingColor    =   &H00FFFFFF&
         MultiColumn     =   0   'False
         MultiSelect     =   0   'False
         NoIntegralHeight=   0   'False
         OwnerCompare    =   0   'False
         OwnerDraw       =   0   'False
         RiseColor       =   &H00FFFFFF&
         SearchCompare   =   1  'Case Insensitive
         SelectMode      =   0  'Normal
         SortColumn      =   0
         Sorted          =   -1  'True
         SortOrder       =   0  'Ascending
         StringCompare   =   0  'Case Sensitive
         TabIndex        =   5
         Top             =   0
         Version         =   "04.51"
         VerticalGrids   =   -1  'True
         VirtualMsgZone  =   0
         Width           =   9150
      End
   End
   Begin VideoSoftElastic VSElastic3
      Align           =   1  'Align Top
      AutoSizeChildren=   7  'Proportional
      BackColor       =   &H00C0C0C0&
      ChildSpacing    =   2
      Height          =   285
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   3
      Top             =   2415
      Width           =   9150
      Begin PictureBox Picture1
         BackColor       =   &H00C0C0C0&
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   1
         Left            =   0
         ScaleHeight     =   255
         ScaleWidth      =   9120
         TabIndex        =   6
         Top             =   0
         Width           =   9150
      End
   End
   Begin VideoSoftElastic VSElastic2
      Align           =   1  'Align Top
      AutoSizeChildren=   7  'Proportional
      BackColor       =   &H00C0C0C0&
      ChildSpacing    =   2
      Height          =   2130
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   1
      Top             =   285
      Width           =   9150
      Begin MListBox MList1
         AddItemHeight   =   0
         Alignment       =   0  'None
         AllowFocusRect  =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'Normal
         CheckColor      =   &H00000000&
         CheckStyle      =   0  'Cross Style
         DrawRegions     =   9
         EnableVirtualMsgs=   0   'False
         ExtendedSelect  =   0   'False
         FallColor       =   &H00808080&
         FindDirection   =   0  'Forward
         FindResult      =   0  'Update ListIndex
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         GridColor       =   &H00808080&
         GridStyle       =   0  'Solid
         Height          =   2130
         HiliteBackColor =   &H00000000&
         HiliteForeColor =   &H00000000&
         HorizontalGrids =   0   'False
         ImageRegion     =   0
         ImageType       =   0  'None
         ItemHeight      =   210
         ItemWidth       =   1560
         Left            =   0
         ListBoxStyle    =   0  'Fixed
         MaskingColor    =   &H00FFFFFF&
         MultiColumn     =   0   'False
         MultiSelect     =   0   'False
         NoIntegralHeight=   0   'False
         OwnerCompare    =   0   'False
         OwnerDraw       =   0   'False
         RiseColor       =   &H00FFFFFF&
         SearchCompare   =   1  'Case Insensitive
         SelectMode      =   0  'Normal
         SortColumn      =   0
         Sorted          =   -1  'True
         SortOrder       =   0  'Ascending
         StringCompare   =   0  'Case Sensitive
         TabIndex        =   2
         Top             =   0
         Version         =   "04.51"
         VerticalGrids   =   -1  'True
         VirtualMsgZone  =   0
         Width           =   9150
      End
   End
   Begin VideoSoftElastic VSElastic1
      Align           =   1  'Align Top
      AutoSizeChildren=   7  'Proportional
      BackColor       =   &H00C0C0C0&
      ChildSpacing    =   2
      Height          =   285
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9150
      Begin PictureBox Picture1
         BackColor       =   &H00C0C0C0&
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   0
         Left            =   0
         ScaleHeight     =   255
         ScaleWidth      =   15705
         TabIndex        =   7
         Top             =   0
         Width           =   15735
         Begin CommonDialog CMDialog1
            Left            =   0
            Top             =   0
         End
      End
   End
   Begin Menu mnu_File
      Caption         =   "&File"
      Begin Menu mnu_Load_Module
         Caption         =   "&Load Module"
      End
      Begin Menu mnu_Save_Dump
         Caption         =   "&Save Dump"
      End
      Begin Menu Blank1
         Caption         =   "-"
      End
      Begin Menu mnu_Exit
         Caption         =   "&Exit"
      End
   End
   Begin Menu mnu_Option
      Caption         =   "&Options"
      Begin Menu mnu_Free_Task
         Caption         =   "free &Task"
      End
      Begin Menu mnu_Free_Module
         Caption         =   "free &Module"
      End
   End
   Begin Menu mnu_Sort
      Caption         =   "&Sort"
      Begin Menu mnu_Sorting
         Caption         =   "by &Name"
         Index           =   0
      End
      Begin Menu mnu_Sorting
         Caption         =   "by h&Module"
         Index           =   1
      End
      Begin Menu mnu_Sorting
         Caption         =   "by &Version"
         Index           =   2
      End
      Begin Menu mnu_Sorting
         Caption         =   "by File &Size"
         Index           =   3
      End
      Begin Menu mnu_Sorting
         Caption         =   "by &Full name"
         Index           =   4
      End
      Begin Menu mnu_Sorting
         Caption         =   "by File &Type"
         Index           =   5
      End
   End
   Begin Menu mnu_Update
      Caption         =   "&Update!"
   End
Option Explicit
Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
Declare Sub TerminateApp Lib "toolhelp.dll" (ByVal hTask As Integer, ByVal wFlags As Integer)
Const chanSaveDump = 1
Const BKS = "\"
Const SMP = "."
Dim NUL           As String * 1
Dim TBT           As String * 1
Dim FormatTask    As String
Dim FormatSize    As String
Dim LenFormatTask As Integer
Dim LenFormatSize As Integer
Sub DisplayMlistTitle (CtlMlst As Control, CtlPct As Control) '~id~'1
   Call mcPushID( 1 ): On Error Goto mcIDError_0001
   Dim i                As Integer
   Dim j                As Integer
   Dim retval           As Integer
   Dim pctOffsetX       As Long
   Dim pctOffsetY       As Long
   Dim newOffsetX       As Long
   Dim ItemTitle        As String
   Dim Title            As String
   Dim ItemCenterTitle  As Integer
   j = CtlMlst.DrawRegions
   pctOffsetX = (30 / Screen.TwipsPerPixelX)
   pctOffsetY = (((CtlPct.Height - CtlPct.TextHeight("Ag")) / 2) / Screen.TwipsPerPixelY)
   ItemCenterTitle = IIf(Val(Left$(CtlMlst.Tag, 1)) = 1, True, False)
   Title = Mid$(CtlMlst.Tag, 2)
   For i = 1 To j
      ItemTitle = cGetIn(Title, BKS, i)
      If (ItemCenterTitle = True) Then
         newOffsetX = pctOffsetX + (((CtlMlst.ItemLength(i) - CtlPct.TextWidth(ItemTitle)) \ 2) / Screen.TwipsPerPixelX)
      Else
         newOffsetX = pctOffsetX
      End If
      retval = TextOut(CtlPct.hDC, newOffsetX, pctOffsetY, ItemTitle, Len(ItemTitle))
      pctOffsetX = pctOffsetX + (CtlMlst.ItemLength(i) / Screen.TwipsPerPixelX)
   Next i
   Call mcPopLastID
   Exit Sub
   mcIDError_0001:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub Form_Load () '~id~'2
   Call mcInitID(-1, True, 3, True)
   Call mcPushID( 2 ): On Error Goto mcIDError_0002
   Me.Tag = Me.Caption
   Call InitVariable
   Call InitTask
   Call InitModule
   mnu_Update_Click
   mnu_Sorting_Click 5
   Call mcPopLastID
   Exit Sub
   mcIDError_0002:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub Form_Resize () '~id~'3
   Call mcPushID( 3 ): On Error Goto mcIDError_0003
   If (Me.WindowState = 1) Then
      Me.Caption = cGetIn("" & Me.Tag, "'", 3)
   Else
      Me.Caption = Me.Tag
   End If
   Call mcPopLastID
   Exit Sub
   mcIDError_0003:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub InitLoadDlg () '~id~'4
   Call mcPushID( 4 ): On Error Goto mcIDError_0004
   Dim Tmp        As String
   Tmp = ""
   Tmp = Tmp + "Modules (*.exe;*.dll)|*.exe;*.dll|"
   Tmp = Tmp + "Librairies (*.dll)|*.dll|"
   Tmp = Tmp + "Executables (*.exe)|*.exe|"
   Tmp = Tmp + "Drivers (*.drv)|*.drv|"
   Tmp = Tmp + "Applets (*.cpl)|*.cpl|"
   Tmp = Tmp + "Fonts (*.fon;*.fot)|*.fon;*.fot|"
   Tmp = Tmp + "Screen Savers (*.scr)|*.scr|"
   Tmp = Tmp + "All Files (*.*)|*.*"
   CMDialog1.Filter = Tmp
   CMDialog1.FilterIndex = 0
   Call mcPopLastID
   Exit Sub
   mcIDError_0004:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub InitModule () '~id~'5
   Call mcPushID( 5 ): On Error Goto mcIDError_0005
   MList2.ItemLength(1) = 1200
   MList2.ItemLength(2) = 750
   MList2.ItemLength(3) = 630
   MList2.ItemLength(4) = 900
   MList2.ItemLength(5) = 810
   MList2.ItemLength(6) = MList2.Width
   MList2.ItemLength(7) = 90
   MList2.DrawFlags(2) = 37
   MList2.DrawFlags(3) = 37
   MList2.DrawFlags(5) = 38
   Call mcPopLastID
   Exit Sub
   mcIDError_0005:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub InitSaveDlg () '~id~'6
   Call mcPushID( 6 ): On Error Goto mcIDError_0006
   Dim Tmp        As String
   Tmp = ""
   Tmp = Tmp + "Text File (*.txt)|*.txt|"
   Tmp = Tmp + "All Files (*.*)|*.*"
   CMDialog1.Filter = Tmp
   CMDialog1.FilterIndex = 0
   Call mcPopLastID
   Exit Sub
   mcIDError_0006:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub InitTask () '~id~'7
   Call mcPushID( 7 ): On Error Goto mcIDError_0007
   MList1.Tag = "0Name          \hTask  \hParent\hEvents\hInst\Version  \File Size \Full Name\"
   MList2.Tag = "0Name          \hModule\Usage  \Version  \File Size \Full Name\"
   MList1.ItemLength(1) = 1200
   MList1.ItemLength(2) = 750
   MList1.ItemLength(3) = 630
   MList1.ItemLength(4) = 630
   MList1.ItemLength(5) = 630
   MList1.ItemLength(6) = 900
   MList1.ItemLength(7) = 810
   MList1.ItemLength(8) = MList1.Width
   MList1.ItemLength(9) = 90
   MList1.DrawFlags(2) = 37
   MList1.DrawFlags(3) = 37
   MList1.DrawFlags(4) = 37
   MList1.DrawFlags(5) = 37
   MList1.DrawFlags(7) = 38
   Call mcPopLastID
   Exit Sub
   mcIDError_0007:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub InitVariable () '~id~'8
   Call mcPushID( 8 ): On Error Goto mcIDError_0008
   NUL = Chr$(0)
   TBT = Chr$(9)
   FormatTask = "0000"
   FormatSize = "#,###,###"
   LenFormatTask = Len(FormatTask)
   LenFormatSize = Len(FormatSize)
   Call mcPopLastID
   Exit Sub
   mcIDError_0008:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub MList1_Click () '~id~'9
   Call mcPushID( 9 ): On Error Goto mcIDError_0009
   If (MList1.ListIndex < 0) Then Call mcPopLastID: Exit Sub
   Dim Tmp        As String
   mnu_Free_Task.Enabled = True
   MList1.ActiveRegion = 8
   Tmp = Trim$(MList1.ListRegion(MList1.ListIndex))
   VSElastic5.Caption = " " + cGetFileVersion(Tmp, VER_FILE_DESCRIPTION) + " -> " + cGetFileVersion(Tmp, VER_COMPANY_NAME)
   Call mcPopLastID
   Exit Sub
   mcIDError_0009:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub MList1_DblClick () '~id~'10
   Call mcPushID( 10 ): On Error Goto mcIDError_0010
   mnu_Free_Task_Click
   Call mcPopLastID
   Exit Sub
   mcIDError_0010:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub MList2_Click () '~id~'11
   Call mcPushID( 11 ): On Error Goto mcIDError_0011
   If (MList2.ListIndex < 0) Then Call mcPopLastID: Exit Sub
   Dim Tmp        As String
   mnu_Free_Module.Enabled = True
   MList2.ActiveRegion = 6
   Tmp = Trim$(MList2.ListRegion(MList2.ListIndex))
   VSElastic5.Caption = " " + cGetFileVersion(Tmp, VER_FILE_DESCRIPTION) + " -> " + cGetFileVersion(Tmp, VER_COMPANY_NAME)
   Call mcPopLastID
   Exit Sub
   mcIDError_0011:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub MList2_DblClick () '~id~'12
   Call mcPushID( 12 ): On Error Goto mcIDError_0012
   mnu_Free_Module_Click
   Call mcPopLastID
   Exit Sub
   mcIDError_0012:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub mnu_Exit_Click () '~id~'13
   Call mcPushID( 13 ): On Error Goto mcIDError_0013
   Set frmWPS = Nothing
   Unload Me
   Call mcPopLastID
   Exit Sub
   mcIDError_0013:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub mnu_Free_Module_Click () '~id~'14
   Call mcPushID( 14 ): On Error Goto mcIDError_0014
   If (MList2.ListIndex < 0) Then Call mcPopLastID: Exit Sub
   Screen.MousePointer = 11
   Dim MODULEENTRY   As tagMODULEENTRY
   Dim i             As Integer
   Dim hModule       As Integer
   Dim wcUsage       As Integer
   Dim Tmp           As String
   MList2.ListIndex = MList2.ListIndex
   MList2.ActiveRegion = 1
   Tmp = Trim$(MList2.ListRegion(MList2.ListIndex))
   If (MsgBox("UnLoad '" + Tmp + "'", 1 Or 256, "Modules") = 1) Then
      hModule = MList2.ItemData(MList2.ListIndex)
      Call cUnloadDLL(hModule)
      If (cModuleFind(MODULEENTRY, Tmp) = False) Then
         MList2.RemoveItem MList2.ListIndex
         MList2.ListIndex = MList2.ListIndex
      Else
         MsgBox Tmp + " can't be UnLoaded."
      End If
   End If
   Screen.MousePointer = 0
   Call mcPopLastID
   Exit Sub
   mcIDError_0014:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub mnu_Free_Task_Click () '~id~'15
   Call mcPushID( 15 ): On Error Goto mcIDError_0015
   If (MList1.ListIndex < 0) Then Call mcPopLastID: Exit Sub
   Screen.MousePointer = 11
   Dim TASKENTRY     As tagTASKENTRY
   Dim hInstance     As Integer
   Dim Tmp           As String
   Dim n             As Integer
   MList1.ActiveRegion = 1
   Tmp = Trim$(MList1.ListRegion(MList1.ListIndex))
   If (MsgBox("Terminate '" + Tmp + "'", 1 Or 256, "Tasks") = 1) Then
      hInstance = MList1.ItemData(MList1.ListIndex)
      Call TerminateApp(hInstance, 1)

      DoEvents
      If (cTaskFind(TASKENTRY, hInstance) = False) Then
         MList1.RemoveItem MList1.ListIndex
         MList1.ListIndex = MList1.ListIndex
      Else
         MsgBox Tmp + " can't be UnLoaded."
      End If
   End If
   Screen.MousePointer = 0
   Call mcPopLastID
   Exit Sub
   mcIDError_0015:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub mnu_Load_Module_Click () '~id~'16
   Call mcPushID( 16 ): On Error Goto mcIDError_0016
   Dim Tmp        As String
   Dim hInstance  As Integer
   Call InitLoadDlg
   CMDialog1.Action = 1
   Tmp = Trim$(CMDialog1.Filename)
   If (Len(Tmp) > 0) Then
      hInstance = LoadLibrary(Tmp)
      If (hInstance > 32) Then
         mnu_Update_Click
      Else
         MsgBox Tmp + " can't be loaded."
      End If
   End If
   Call mcPopLastID
   Exit Sub
   mcIDError_0016:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub mnu_Option_Click () '~id~'17
   Call mcPushID( 17 ): On Error Goto mcIDError_0017
   mnu_Free_Task.Enabled = (MList1.ListIndex >= 0)
   mnu_Free_Module.Enabled = (MList2.ListIndex >= 0)
   Call mcPopLastID
   Exit Sub
   mcIDError_0017:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub mnu_Save_Dump_Click () '~id~'18
   Call mcPushID( 18 ): On Error Goto mcIDError_0018
   Dim Tmp        As String
   Dim hInstance  As Integer
   Dim i          As Integer
   Dim j          As Integer
   Dim n          As Integer
   Call InitSaveDlg
   CMDialog1.Action = 2
   Tmp = Trim$(CMDialog1.Filename)
   If (Len(Tmp) > 0) Then
      Close #chanSaveDump
      Open Tmp For Output Shared As #chanSaveDump
      Tmp = Mid$(MList1.Tag, 2)
      Call cChangeChars(Tmp, BKS, TBT)
      Print #chanSaveDump, Tmp
      n = MList1.ListCount - 1
      For i = 0 To n
         For j = 1 To 8
            MList1.ActiveRegion = j
            Print #chanSaveDump, MList1.ListRegion(i); TBT;
         Next j
         Print #chanSaveDump, ""
      Next i
      n = MList2.ListCount - 1
      Tmp = Mid$(MList2.Tag, 2)
      Call cChangeChars(Tmp, BKS, TBT)
      Print #chanSaveDump, ""
      Print #chanSaveDump, Tmp
      For i = 0 To n
         For j = 1 To 6
            MList2.ActiveRegion = j
            Print #chanSaveDump, MList2.ListRegion(i); TBT;
         Next j
         Print #chanSaveDump, ""
      Next i
      Close #chanSaveDump
   End If
   Call mcPopLastID
   Exit Sub
   mcIDError_0018:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub mnu_Sorting_Click (Index As Integer) '~id~'19
   Call mcPushID( 19 ): On Error Goto mcIDError_0019
   Dim i       As Integer
   Dim j       As Integer
   Dim k       As Integer
   Screen.MousePointer = 11
   For k = 0 To 5
      mnu_Sorting(k).Checked = (k = Index)
   Next k
   Select Case Index
      Case 0   'name
         i = 0
         j = 0
      Case 1   'hmodule
         i = 1
         j = 1
      Case 2   'version
         i = 5
         j = 3
      Case 3   'size
         i = 6
         j = 4
      Case 4   'full name
         i = 7
         j = 5
      Case 5   'type
         i = 8
         j = 6
   End Select
   cDisableRedraw MList1.hWnd
   cDisableRedraw MList2.hWnd
   MList1.SortColumn = i + 1
   MList1.Resort = 1
   MList2.SortColumn = j + 1
   MList2.Resort = 1
   cEnableRedraw MList1.hWnd
   cEnableRedraw MList2.hWnd
   Screen.MousePointer = 0
   Call mcPopLastID
   Exit Sub
   mcIDError_0019:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub mnu_Update_Click () '~id~'20
   Call mcPushID( 20 ): On Error Goto mcIDError_0020
   Dim FILEVERSIONINFO  As tagFILEVERSIONINFO
   Dim MODULEENTRY      As tagMODULEENTRY
   Dim TASKENTRY        As tagTASKENTRY
   Dim Test             As Integer
   Dim Tmp              As String
   Dim Tmp1             As String
   Dim Tmp2             As String
   Dim i                As Integer
   Dim j                As Long
   Dim TaskLoaded       As String
   Screen.MousePointer = 11
   TaskLoaded = ""
   cDisableRedraw MList1.hWnd
   cDisableRedraw MList2.hWnd
   MList1.Clear
   MList2.Clear
   Test = cTasks(TASKENTRY, True)
   Do While (Test = True)
      Tmp = ""
      TaskLoaded = TaskLoaded + cGetIn(TASKENTRY.szModule, NUL, 1) + BKS
      Tmp = Tmp + Left$(cGetIn(TASKENTRY.szModule, NUL, 1) + Space$(10), 10) + TBT
      Tmp = Tmp + Right$(FormatTask + Hex$(TASKENTRY.hTask), LenFormatTask) + TBT
      Tmp = Tmp + Right$(FormatTask + Hex$(TASKENTRY.hTaskParent), LenFormatTask) + TBT
      Tmp = Tmp + Right$(FormatTask + Hex$(TASKENTRY.wcEvents), LenFormatTask) + TBT
      Tmp = Tmp + Right$(FormatTask + Hex$(TASKENTRY.hInst), LenFormatTask) + TBT
      Tmp1 = cEXENameTask(TASKENTRY.szModule)
      Tmp = Tmp + Left$(cGetFileVersion(Tmp1, VER_VERSION_FILE) + Space$(12), 12) + TBT
      j = cFileSize(Tmp1)
      Tmp = Tmp + Right$(Space$(LenFormatSize) + Format$(j, FormatSize), LenFormatSize) + TBT
      Tmp = Tmp + Tmp1 + TBT
      Tmp2 = cGetIn(cReverse(Tmp1), BKS, 1)
      Tmp = Tmp + cReverse(cGetIn(Tmp2, SMP, 1)) + SMP + cReverse(cGetIn(Tmp2, SMP, 2))
      MList1.AddItem Tmp
      MList1.ItemData(MList1.NewIndex) = TASKENTRY.hTask
      Test = cTasks(TASKENTRY, False)
   Loop
   Test = cModules(MODULEENTRY, True)
   Do While (Test = True)
      If (InStr(TaskLoaded, cGetIn(MODULEENTRY.szModule, NUL, 1) + BKS) = 0) Then
         Tmp = ""
         Tmp = Tmp + Left$(cGetIn(MODULEENTRY.szModule, NUL, 1) + Space$(10), 10) + TBT
         Tmp = Tmp + Right$(FormatTask + Hex$(MODULEENTRY.hModule), LenFormatTask) + TBT
         Tmp = Tmp + Right$(FormatTask + Hex$(MODULEENTRY.wcUsage), LenFormatTask) + TBT
         Tmp1 = cGetIn(MODULEENTRY.szExePath, NUL, 1)
         Tmp = Tmp + Left$(cGetFileVersion(Tmp1, VER_VERSION_FILE) + Space$(12), 12) + TBT
         j = cFileSize(Tmp1)
         Tmp = Tmp + Right$(Space$(LenFormatSize) + Format$(j, FormatSize), LenFormatSize) + TBT
         Tmp = Tmp + Tmp1 + TBT
         Tmp2 = cGetIn(cReverse(Tmp1), BKS, 1)
         Tmp = Tmp + cReverse(cGetIn(Tmp2, SMP, 1)) + SMP + cReverse(cGetIn(Tmp2, SMP, 2))
         MList2.AddItem Tmp
         MList2.ItemData(MList2.NewIndex) = MODULEENTRY.hModule
      End If
      Test = cModules(MODULEENTRY, False)
   Loop
   cEnableRedraw MList1.hWnd
   cEnableRedraw MList2.hWnd
   Screen.MousePointer = 0
   Call mcPopLastID
   Exit Sub
   mcIDError_0020:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub Picture1_Paint (Index As Integer) '~id~'21
   Call mcPushID( 21 ): On Error Goto mcIDError_0021
   Select Case Index
      Case 0: Call DisplayMlistTitle(MList1, Picture1(Index))
      Case 1: Call DisplayMlistTitle(MList2, Picture1(Index))
   End Select
   Call mcPopLastID
   Exit Sub
   mcIDError_0021:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub
Sub VSElastic4_RealignFrame () '~id~'22
   Call mcPushID( 22 ): On Error Goto mcIDError_0022
   MList2.Height = ((VSElastic4.Height - (VSElastic5.Height \ 1.5)) \ MList2.ItemHeight) * MList2.ItemHeight
   Call mcPopLastID
   Exit Sub
   mcIDError_0022:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub